ggplotly(ggplot(data = covid_map_data, aes(x = long, y = lat, group = group, text = Landkreis)) +
# @todo: rename AnzahlFall in tooltip
geom_polygon(aes(fill = AnzahlFall), color = 'gray', size = 0.1 ) +
# @todo: set title
ggtitle("Fälle der letzten 7 Tage (Stand: 2021/12/16)") +
guides(fill = guide_colorbar(title = "Gemeldete Fälle")) +
coord_fixed(1.0) +
scale_fill_steps2(
low = "red",
mid = "yellow",
high = "blue",
limits=c(0,2500),
space = "Lab",
na.value = "grey50",
guide = "colorsteps",
aesthetics = "fill"
) +
theme_bare
)